home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / EXPONENT.BAS < prev    next >
BASIC Source File  |  1996-02-02  |  682b  |  30 lines
  1.     'draw an exponential graph
  2.     open "Here is an exponential curve" for graphics as #g
  3.  
  4.     print #g, "color blue"
  5.     print #g, "down"
  6.  
  7.     for x = 1 to 300 step 25
  8.         print #g, "line "; x ; " 0"; " "; x ; " 350"
  9.         print #g, "line 0 "; x; " 350 "; x
  10.     next x
  11.  
  12.     print #g, "place 0 0"
  13.     print #g, "color red"
  14.  
  15.     for x = 1 to 270 step 10
  16.         print #g, "goto "; x ; " "; (x * x / 260) + 10
  17.         print #g, "place "; x ; " "; (x * x / 260) + 10
  18.         print #g, "\o"
  19.     next x
  20.  
  21.     print #g, "place 0 32"
  22.     print #g, "color green"
  23.     print #g, "\\\Exponential \Plot "
  24.  
  25.         print #g, "flush"
  26.  
  27.     input r$
  28.  
  29.     close #g
  30.